home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / pkey12_1.zip / ET.LSP < prev    next >
Text File  |  1992-09-13  |  903b  |  28 lines
  1. ;Extend or Trim Lines
  2. ;
  3. ;                     ********Patrick J. McKee, author********
  4. ;                       ****Copyright 1992, Power Key tm****
  5. ;
  6. ;
  7. (setq oer *error*  *error* err2)
  8. (INITGET "Extend Trim")
  9. (setq et1(getkword "Do you want to Extend or <Trim>: "))
  10. (if(equal et1 nil)(setq et1 "Trim"))
  11. (setq ent(entsel "\nSelect edge : "))
  12. (setq obj(car ent))
  13. (setq x(getpoint "\nPick crossing line startpoint: "))
  14. (setq y(getpoint  x "\nendpoint: "))
  15. (setq ss1(ssget "c" x y))
  16. (setq count 0)
  17. (if(/= ss1 nil)
  18. (while(< count(sslength ss1))
  19. (setq e1st(entget(ssname ss1 count))
  20.       pt1 (cdr(assoc 10 e1st))
  21.       pt2 (cdr(assoc 11 e1st))
  22.       int (inters x y pt1 pt2))
  23. (if(equal et1 "Extend")
  24. (command"extend" obj "" int "")
  25. (command"trim" obj "" int ""))
  26. (setq count (1+ count))))
  27. (setq et1 nil ent nil obj nil x nil y nil ss1 nil e1st nil pt1 nil pt2 nil int nil)
  28. (princ)